% V20210224 - 4.3.6 GW_USE_FONT

INCLUDE "GW.bas"

% Create a page.
p = GW_NEW_PAGE()

% Prepare title bar string.
Title$ = GW_ADD_BAR_TITLE$("Use Font Example")

% Add title to page.
GW_ADD_TITLEBAR(p,Title$)

% Add descriptive text.
GW_ADD_TEXT(p, "This is an example of the USE FONT function.")

% Add some text.
GW_ADD_TEXT(p, "Here is some text.")

% Add buttons to select different fonts.
GW_ADD_BUTTON(p, "monospace", "monospace")
GW_ADD_BUTTON(p, "serif", "serif")
GW_ADD_BUTTON(p, "sans-serif", "sans-serif")
GW_ADD_BUTTON(p, "cursive", "cursive")

Show:  % Show the page.
GW_RENDER(p)

% Wait for user action.
r$ = GW_WAIT_ACTION$()

% Place here any necessary code to process user actions.

% End when BACK key is pressed.
IF r$ = "BACK" then END "End of USE FONT example."

% Use the selected font.
GW_USE_FONT(p, r$)

% And go back to redisplay the page.
GOTO Show